Sub logica()
    Dim a, b, c, d As Integer
    a = 15: b = 7: c = 20: d = 10
    If a > b Eqv c > d Then
        Debug.Print "Verdadero."
    Else
        Debug.Print "Falso."
    End If
    Dim s As String
    s = "Esto " & "es " & "una " & "prueba"
    Debug.Print s
End Sub
